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^************************************************************ 
//CLASS CircMedian3FUter (derived from Medians Filter) 

//rlnp = value to be filtered, returned Real is filtered value 

Real CircMedian3Filter::Filter(Real rlnp) 

{ 

Real rAvg = (arF/OJ + arFffl) /2; 

if ((rlnp - rAvg) > rHALFCIRCLE) 

rlnp -= rFULLCIRCLE; 
eke if ((rlnp - rAvg) < - rHALFCIRCLE) 

rlnp -H= rFULLCIRCLE; 

Real r = Median3 Filter: :Filter(rInp); 

//normalize out any circular adjustments 
if(r > rFULLCIRCLE) 
{ 

arFfOJ -= rFULLCIRCLE,' 
arFflJ ^rFULLCIRCLE; 
#•-= rFULLCIRCLE; 

} 

else if(r < -rHALFCIRCLE) 
{ 

arFfOJ 4= rFULLCIRCLE; 
arFflJ += rFULLCIRCLE; 
r += rFULLCIRCLE; 

} 

return (r);// return median value 
} //CircMedian3Filter::Filter 
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MedianS Filter : : Median3Filier(void) 
{ 

SetTo(0); 

} //Median3Filter : : Median3Filter 




//rlnp = value to be filtered, returned Real is filtered 
value 

Real mediani Filter : : Filter (Real rlnp) 

{ 

int iCase = 0; 

if (arFfOJ >arFflJ) 
iCase | = 1; 
if(arFflJ>rInp) 
iCase\=2; 
if (rlnp > arFfOJ) 
iCase | = 4; 
Realr = 0; 

switch (iCase) 

{ 

case2: //010: 0<=l> 1>2, 2<=0 (1>0>2) 
caseS: //Wis 0>1, 1<=2, 2>0 (2>0>1) 

r = arFfOJ; 

break; 

case 0: //OOO: 0<=t, 1<=2, 2<=0 (0 = 1=2) 
case 3: //Oil: 0>1, 1>2, 2<=0 (0>1>2) 
case4: // 100:0 <=U 1<=2, 2>0 (2>1>0) 

r = arF[l]; 

break; 

easel: //001:0>1, 1<=2, 2<=0 (0>2>1) 
case6: //HO: 0<=l, 1>2, 2>0 (1>2>0) 

r = rlnp; 

break* 

// case 7; //111: 0>1, 1>2, 2>0 (illogical) 
// default:// MORE THAN 3 BITS SET (N/A) 

} 

arFfidxf = rlnp; 
idx A = 7; 

return (r); //return median value 
} //Median3Filter : : Filter 

//rlnp = value filter is preset to 

void Median3Filter : : SetTo(Real rlnp) 

{ 

arFfOJ = arFflf = rlnp; 



idx = 0; 
} //Median3Filter : : SetTo 
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